home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / toolboxDialog.sim < prev    next >
Encoding:
Text File  |  1989-04-13  |  7.8 KB  |  262 lines  |  [TEXT/MPS ]
  1. %    {for Dialog Manager}
  2. %
  3. %    DialogPtr = WindowPtr;
  4. %    DialogPeek = ^DialogRecord;
  5. %    DialogRecord = RECORD
  6. %                     window: WindowRecord;
  7. %                     Items: Handle;
  8. %                     textH: TEHandle;
  9. %                     editField: INTEGER;
  10. %                     editOpen: INTEGER;
  11. %                     aDefItem: INTEGER;
  12. %                     END;
  13. %
  14. %    DialogTHndl = ^DialogTPtr;
  15. %    DialogTPtr = ^DialogTemplate;
  16. %    DialogTemplate = RECORD
  17. %                     boundsRect: Rect;
  18. %                     procID: INTEGER;
  19. %                     visible: BOOLEAN;
  20. %                     filler1: BOOLEAN;
  21. %                     goAwayFlag: BOOLEAN;
  22. %                     filler2: BOOLEAN;
  23. %                     refCon: LONGINT;
  24. %                     ItemsID: INTEGER;
  25. %                     title: Str255;
  26. %                     END;
  27. %
  28. %    StageList = PACKED RECORD
  29. %                    boldItm4: 0..1;
  30. %                    boxDrwn4: BOOLEAN;
  31. %                    sound4: 0..3;
  32. %                    boldItm3: 0..1;
  33. %                    boxDrwn3: BOOLEAN;
  34. %                    sound3: 0..3;
  35. %                    boldItm2: 0..1;
  36. %                    boxDrwn2: BOOLEAN;
  37. %                    sound2: 0..3;
  38. %                    boldItm1: 0..1;
  39. %                    boxDrwn1: BOOLEAN;
  40. %                    sound1: 0..3;
  41. %                END;
  42. %
  43. %    AlertTHndl = ^AlertTPtr;
  44. %    AlertTPtr = ^AlertTemplate;
  45. %    AlertTemplate = RECORD
  46. %                    boundsRect: Rect;
  47. %                    ItemsID: INTEGER;
  48. %                    stages: StageList;
  49. %                    END;
  50. %
  51. % _____________________________________________________
  52.  
  53. class ToolboxDialog;
  54. begin
  55.  
  56. %    PROCEDURE InitDialogs(resumeProc: ProcPtr);
  57.     external Toolbox procedure x="$A97B" is
  58.     PROCEDURE ToolboxInitDialogs(resumeProc);
  59.         integer resumeProc;;
  60.  
  61. %    FUNCTION GetNewDialog(dialogID: INTEGER; wStorage: Ptr;
  62. %                    behind: WindowPtr): DialogPtr;
  63.     external Toolbox procedure x="$A97C" is
  64.     integer procedure ToolboxGetNewDialog(dialogID, wStorage, behind);
  65.                     short integer dialogId;
  66.                     integer wStorage, behind;;
  67.  
  68. %    FUNCTION NewDialog(wStorage: Ptr; boundsRect: Rect; title: Str255;
  69. %                     visible: BOOLEAN; theProc: INTEGER; behind: WindowPtr;
  70. %                     goAwayFlag: BOOLEAN; refCon: LONGINT;
  71. %                     itmLstHndl: Handle): DialogPtr;
  72.     external Toolbox procedure x="$A97D" is
  73.     integer procedure ToolboxNewDialog(wStorage, boundsRect, title, visible, 
  74.                     theProc, behind,goAwayFlag, refCon, itmLstHndl);
  75.                      value title;
  76.                      name boundsRect;
  77.                     integer wStorage;
  78.                     short integer boundsRect;
  79.                     text title;
  80.                     boolean Visible;
  81.                     short integer theProc;
  82.                     integer behind;
  83.                     boolean goAwayFlag;
  84.                     integer refCon, itmLstHndl;;
  85.  
  86. %    FUNCTION IsDialogEvent(event: EventRecord): BOOLEAN;
  87.     external Toolbox procedure x="$A97F" is
  88.     boolean procedure ToolboxIsDialogEvent(event);
  89.         integer event;;
  90.  
  91. %    FUNCTION DialogSelect(event: EventRecord; VAR theDialog: DialogPtr;
  92. %                    VAR itemHit: INTEGER): BOOLEAN;
  93.     external Toolbox procedure x="$A980" is
  94.     boolean procedure ToolboxDialogSelect(event,theDialog,itemHit);
  95.                     name event, theDialog, itemHit;
  96.                     short integer Event;
  97.                     integer theDialog;
  98.                     short integer itemHit;;
  99.  
  100. %    PROCEDURE ModalDialog(filterProc: ProcPtr; VAR itemHit: INTEGER);
  101.     external Toolbox procedure x="$A991" is
  102.     PROCEDURE ToolboxModalDialog(filterProc, itemHit);
  103.                 name itemHit;
  104.                 integer filterProc;
  105.                 short integer itemHit;;
  106.  
  107. %    PROCEDURE DrawDialog(theDialog: DialogPtr);
  108.     external Toolbox procedure x="$A981" is
  109.     PROCEDURE ToolboxDrawDialog(theDialog);
  110.                 integer theDialog;;
  111.  
  112. %    PROCEDURE CloseDialog(theDialog: DialogPtr);
  113.     external Toolbox procedure x="$A982" is
  114.     PROCEDURE ToolboxCloseDialog(theDialog);
  115.                 integer theDialog;;
  116.  
  117. %    PROCEDURE DisposDialog(theDialog: DialogPtr);
  118.     external Toolbox procedure x="$A983" is
  119.     PROCEDURE ToolboxDisposDialog(theDialog);
  120.                 integer theDialog;;
  121.  
  122. %    FUNCTION Alert(alertID: INTEGER; filterProc: ProcPtr): INTEGER;
  123.     external Toolbox procedure x="$A985" is
  124.     short integer procedure ToolboxAlert(alertID, filterProc);
  125.                 short integer alertId;
  126.                 integer filterProc;;
  127.  
  128. %    FUNCTION StopAlert(alertID: INTEGER; filterProc: ProcPtr): INTEGER;
  129.     external Toolbox procedure x="$A986" is
  130.     short integer procedure ToolboxStopAlert(alertID, filterProc);
  131.                 short integer alertId;
  132.                 integer filterProc;;                
  133.  
  134. %    FUNCTION NoteAlert(alertID: INTEGER; filterProc: ProcPtr): INTEGER;
  135.     external Toolbox procedure x="$A987" is
  136.     short integer procedure ToolboxNoteAlert(alertID, filterProc);
  137.                 short integer alertId;
  138.                 integer filterProc;;                
  139.  
  140. %    FUNCTION CautionAlert(alertID: INTEGER; filterProc: ProcPtr): INTEGER;
  141.     external Toolbox procedure x="$A988" is
  142.     short integer procedure ToolboxCautionAlert(alertID, filterProc);
  143.                 short integer alertId;
  144.                 integer filterProc;;                
  145.  
  146. %    PROCEDURE CouldAlert(alertID: INTEGER);
  147.     external Toolbox procedure x="$A989" is
  148.     PROCEDURE ToolboxCouldAlert(alertID);
  149.                 short integer alertId;;
  150.         
  151. %    PROCEDURE FreeAlert(alertID: INTEGER);
  152.     external Toolbox procedure x="$A98A" is
  153.     PROCEDURE ToolboxFreeAlert(alertID);
  154.                     short integer alertId;;
  155.                     
  156. %    PROCEDURE CouldDialog(DlgID: INTEGER);
  157.     external Toolbox procedure x="$A979" is
  158.     PROCEDURE ToolboxCouldDialog(DlgID);
  159.                     short integer DlgId;;
  160.  
  161. %    PROCEDURE FreeDialog(DlgID: INTEGER);
  162.     external Toolbox procedure x="$A97A" is
  163.     PROCEDURE ToolboxFreeDialog(DlgID);
  164.                     short integer DlgId;;
  165.  
  166. %    PROCEDURE ParamText(cite0, cite1, cite2, cite3: Str255);
  167.     external Toolbox procedure x="$A98B" is
  168.     PROCEDURE ToolboxParamText(cite0, cite1, cite2, cite3);
  169.                 value cite0, cite1, cite2, cite3;
  170.                 text cite0, cite1, cite2, cite3;;
  171.  
  172. %    PROCEDURE ErrorSound(sound: ProcPtr);
  173.     external Toolbox procedure x="$A98C" is
  174.     PROCEDURE ToolboxErrorSound(sound);
  175.         integer sound;;
  176.  
  177. %    PROCEDURE GetDItem(theDialog: DialogPtr; itemNo: INTEGER; VAR kind: INTEGER;
  178. %                     VAR item: Handle; VAR box: Rect);
  179.     external Toolbox procedure x="$A98D" is
  180.     PROCEDURE ToolboxGetDItem(theDialog, itemNo, kind, item, box);
  181.                      name kind, item, box;
  182.                      integer theDialog;
  183.                      short integer itemNo, kind;
  184.                      integer item;
  185.                      short integer box;;
  186.  
  187. %    PROCEDURE SetDItem(dialog: DialogPtr; itemNo: INTEGER; kind: INTEGER;
  188. %                     item: Handle; box: Rect);
  189.     external Toolbox procedure x="$A98E" is
  190.     PROCEDURE ToolboxSetDItem(dialog, itemNo, kind, item, box);
  191.                      name box;
  192.                      integer dialog;
  193.                      short integer itemNo, kind;
  194.                      integer item;
  195.                      short integer box;;
  196.                      
  197. %    PROCEDURE SetIText(item: Handle; text: Str255);
  198.     external Toolbox procedure x="$A98F" is
  199.     PROCEDURE ToolboxSetIText(item, text255);
  200.             value text255;
  201.             integer item;
  202.             text text255;;
  203.  
  204. %    PROCEDURE GetIText(item: Handle; VAR text: Str255);
  205.     external Toolbox procedure x="$A990" is
  206.     PROCEDURE ToolboxGetIText(item, text255);
  207.             name text255;
  208.             integer item;
  209.             text text255;;
  210.  
  211. %    PROCEDURE SelIText(theDialog: DialogPtr; itemNo: INTEGER; startSel,
  212. %                     endSel: INTEGER);
  213.     external Toolbox procedure x="$A97E" is
  214.     PROCEDURE ToolboxSelIText(theDialog, itemNo, startSel, endSel);
  215.                      integer theDialog;
  216.                      short integer itemNo, startSel, endSel;;
  217.  
  218. %    {routines designed only for use in Pascal}
  219.  
  220. %    FUNCTION GetAlrtStage: INTEGER;
  221. %    external Toolbox procedure x="$3EB8, $0A9A" is
  222.  
  223. %    PROCEDURE ResetAlrtStage;
  224. %    external Toolbox procedure x="$4278, $0A9A" is
  225.  
  226. %    PROCEDURE DlgCut(theDialog: DialogPtr)" is
  227.  
  228. %    PROCEDURE DlgPaste(theDialog: DialogPtr)" is
  229.  
  230. %    PROCEDURE DlgCopy(theDialog: DialogPtr)" is
  231.  
  232. %    PROCEDURE DlgDelete(theDialog: DialogPtr)" is
  233.  
  234. %    PROCEDURE SetDAFont(fontNum: INTEGER);
  235. %    external Toolbox procedure x="$31DF, $0AFA" is" is
  236.  
  237. %    {new 128K ROM}
  238.  
  239. %    PROCEDURE HideDItem(theDialog: DialogPtr; itemNo: INTEGER);
  240.     external Toolbox procedure x="$A827" is
  241.     PROCEDURE ToolboxHideDItem(theDialog, itemNo);
  242.             integer theDialog;
  243.             short integer itemNo;;
  244.  
  245. %    PROCEDURE ShowDItem(theDialog: DialogPtr; itemNo: INTEGER);
  246.     external Toolbox procedure x="$A828" is
  247.     PROCEDURE ToolboxShowDItem(theDialog, itemNo);
  248.             integer theDialog;
  249.             short integer itemNo;;
  250.  
  251. %    PROCEDURE UpdtDialog(theDialog: DialogPtr; updateRgn: RgnHandle);
  252.     external Toolbox procedure x="$A978" is
  253.     PROCEDURE ToolboxUpdtDialog(theDialog, updateRgn);
  254.             integer theDialog, upDateRgn;;
  255.  
  256. %    FUNCTION FindDItem(theDialog: DialogPtr; thePt: Point): INTEGER;
  257.     external Toolbox procedure x="$A984" is
  258.     short integer procedure ToolboxFindDItem(theDialog, thePt_h, thePt_v);
  259.         integer theDialog;
  260.         short integer thePt_h, thePt_v;;
  261.  
  262. end;